home *** CD-ROM | disk | FTP | other *** search
/ BCI NET 2 / BCI NET 2.iso / archives / applications / patch / ds1r2.lha / 1.0r2Update / Install-Datastore1.0r2 < prev    next >
Encoding:
Text File  |  1995-01-22  |  2.4 KB  |  69 lines
  1. ;DATASTORE 1.0r2 ONLINE UPDATE PATCH INSTALLATION SCRIPT
  2. ;COPYRIGHT ©1995 DIGITA INTERNATIONAL AND SOFT-LOGIK PUBLISHING CORPORATION
  3.  
  4. (message "\n\nThis will update your hard drive installation of Datastore 1.0 to 1.0 release 2 (1.0r2). It requires that Datastore 1.0 be installed on your hard drive.\n\nYour original Datastore disk will not be modified by this update.")
  5.  
  6. ;GET DATASTORE DIRECTORY
  7. (set DSdest
  8.     (askdir
  9.         (prompt
  10.             "Where is Datastore installed?\n "
  11.             "Click on the Datastore drawer.\n")
  12.                 (help
  13.             "\n\nYou must select the Datastore drawer so that "
  14.             "this installer can update the installation.")
  15.                 (default @default-dest)
  16.         )
  17. )
  18. (set temp1 (tackon DSdest "DSProg"))
  19. (set temp2 (tackon DSdest "Datastore"))
  20. (if (AND (<> (exists temp1) 1) (<> (exists temp2) 1))
  21.     (abort "Datastore 1.0 is not located in this directory.")
  22. )
  23. (set @default-dest DSdest)
  24. (makeassign "Datastore" DSdest (safe))
  25.  
  26. ;UPDATE HELP
  27. (set helpdest (tackon DSdest "Help"))
  28. (if (= (exists helpdest) 2)
  29.     (
  30.         (working "Updating help files...")
  31.         (copyfiles (source "Trouble.guide") (dest helpdest) (nogauge))
  32.         (copyfiles (source "Design.guide") (dest helpdest) (nogauge))
  33.         (copyfiles (source "Basics.guide") (dest helpdest) (nogauge))
  34.     )
  35. )
  36.  
  37. ;UPDATE DATABASES
  38. (set dbdest (tackon DSdest "Databases"))
  39. (set picdest (tackon DSdest "Pictures"))
  40. (if (AND (= (exists dbdest) 2) (= (exists picdest) 2))
  41.     (
  42.         (working "Adding Amiga Shopper sample database...")
  43.         (copyfiles (source "Amiga Shopper Guide") (dest dbdest) (nogauge))
  44.         (copyfiles (source "Shopper Logo") (dest picdest) (nogauge))
  45.     )
  46. )
  47.  
  48. ;UPDATE DATASTORE
  49. (working "Patching Datastore 1.0 to 1.0r2...\n\nThis will take a couple of minutes...")
  50. (run "spatch >NIL: <NIL: -oDatastore:Datastore1.0r2 -pDatastore.patch Datastore:Datastore")
  51. (if (exists "Datastore:Datastore1.0r2")
  52.     (
  53.         (delete "Datastore:Datastore")
  54.         (rename "Datastore:Datastore1.0r2" "Datastore:Datastore")
  55.     )
  56.     (abort "Patch was not successful. Datastore file could not be patched due to incorrect version, lack of hard drive space, or RAM.")
  57. )
  58. (run "spatch >NIL: <NIL: -oDatastore:DSProg1.0r2 -pDSProg.patch Datastore:DSProg")
  59. (if (exists "Datastore:DSProg1.0r2")
  60.     (
  61.         (delete "Datastore:DSProg")
  62.         (rename "Datastore:DSProg1.0r2" "Datastore:DSProg")
  63.     )
  64.     (abort "Patch was not successful. DSprog file could not be patched due to incorrect version, lack of hard drive space, or RAM.")
  65. )
  66.  
  67. ;GEE, THAT WAS FUN
  68. (exit "Datastore updated to version 1.0r2!")
  69.